Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myAr As Variant
    'w}C
    myAr = Worksheets("L_Data01").Range("C2:D11").Value
    With ComboBox1
        'wզXݩ
        .Width = .Width * 3
        .ColumnCount = 2
        .List = myAr
        '.MatchRequired = True
    End With
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With ComboBox1
        If .MatchFound = False Then
            MsgBox "бqMӿܡBάOJsbM椤"
            Cancel = True
            .ListIndex = -1
        End If
    End With
End Sub
